//   
procedure MakeRandomArray (var RqArray  : array of integer;
                               RqRange  : integer;
                               RqReport : TMemo);
var Ind : integer;
begin
  for Ind := Low(RqArray) to High(RqArray) do
  begin
    RqArray[Ind] := 1 + Random(RqRange);
  end;
  // 
  RqReport.Lines.Add('  ');
  ShowArray( RqArray, RqReport);
end; // of procedure